home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / qbasic / qbvb11 / qbfileio.bas < prev    next >
Encoding:
BASIC Source File  |  1995-04-19  |  1.4 KB  |  91 lines
  1. DefInt A-Z
  2.  
  3. Type NumL
  4.     l As Long
  5. End Type
  6. Type StrL
  7.     s As String * 4
  8. End Type
  9. Dim NumL As NumL, StrL As StrL
  10.  
  11. Type NumI ' used by CVI() & MKI()
  12.     i As Integer
  13. End Type
  14. Type StrI
  15.     s As String * 2
  16. End Type
  17. Dim NumI As NumI, StrI As StrI
  18.  
  19. Type NumS ' used by CVS() & MKS()
  20.     n As Single
  21. End Type
  22. Type StrS
  23.     s As String * 4
  24. End Type
  25. Dim NumS As NumS, StrS As StrS
  26.  
  27. Type NumD ' used by CVD() & MKD()
  28.     d As Double
  29. End Type
  30. Type StrD
  31.     s As String * 8
  32. End Type
  33. Dim NumD As NumD, StrD As StrD
  34.  
  35. Global FieldBuf$(99)
  36.  
  37. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long
  38.  
  39. Function CVD# (s$)
  40.     StrD.s = s$
  41.     LSet NumD = StrD
  42.     CVD# = NumD.d
  43. End Function
  44.  
  45. Function CVI% (s$)
  46.     StrI.s = s$
  47.     LSet NumI = StrI
  48.     CVI = NumI.i
  49. End Function
  50.  
  51. Function CVL& (s$)
  52.     StrL.s = s$
  53.     LSet NumL = StrL
  54.     CVL = NumL.l
  55. End Function
  56.  
  57. Function CVS! (s$)
  58.     StrS.s = s$
  59.     LSet NumS = StrS
  60.     CVS = NumS.n
  61. End Function
  62.  
  63. Function FRE (a As Variant) As Long
  64. FRE = GetFreeSpace(wFlags)
  65. End Function
  66.  
  67. Function MKD$ (d#)
  68.     NumD.d = d#
  69.     LSet StrD = NumD
  70.     MKD$ = StrD.s
  71. End Function
  72.  
  73. Function MKI$ (i)
  74.     NumI.i = i
  75.     LSet StrI = NumI
  76.     MKI$ = StrI.s
  77. End Function
  78.  
  79. Function MKL$ (l&)
  80.     NumL.l = l&
  81.     LSet StrL = NumL
  82.     MKL$ = StrL.s
  83. End Function
  84.  
  85. Function MKS$ (n!)
  86.     NumS.n = n!
  87.     LSet StrS = NumS
  88.     MKS$ = StrS.s
  89. End Function
  90.  
  91.